home *** CD-ROM | disk | FTP | other *** search
/ Ultimate Blitz Basic 2.1 / Ultimate Blitz Basic 2.1 (1997)(Acid Software).iso / bui6 / vw_unarchived / installvw < prev    next >
Text File  |  1997-10-06  |  7KB  |  230 lines
  1. ; Install VW
  2. ; For V1.009 of Virtual Worlds
  3.  
  4. (delopts "oknodelete" "force" "askuser")
  5. (complete 0)
  6. (set update 0)
  7. (set HD (askchoice
  8.    (prompt (cat "\n"
  9.       " Welcome to the Virtual Worlds install utility. "
  10.       " Please select whether you wish to install Virtual"
  11.       " Worlds to a floppy disk or to a hard disk drive.\n"
  12.    ))
  13.    (default 0)
  14.    (choices
  15.       "Hard disk Installation"
  16.       "Floppy disk Installation"
  17.    )
  18.    (help (cat "\n"
  19.       " Virtual Worlds may be installed to either your hard"
  20.       " disk (if you have one), or to a bootable floppy disk.\n"
  21.    ))
  22. ))
  23. (if (= HD 0) (
  24. ;-------------------- Hard disk install routine.
  25. (if (exists "VW:" (noreq))
  26.    (set update (askchoice
  27.       (prompt (cat "\n"
  28.          "           VW: assign detected!         \n"
  29.          " It would appear that Virtual Worlds is \n"
  30.          " already installed - do you wish to :-  \n"
  31.       ))
  32.       (default 1)
  33.       (choices
  34.          "Install new"
  35.          "Update existing"
  36.          "Remove"
  37.       )
  38.       (help (cat "\n"
  39.          " The assign VW: has been detected.  If you wish to"
  40.          " completely reinstall Virtual Worlds select Install"
  41.          " new.  If you just wish to update a previous version"
  42.          " then select Update existing.  If you wish to remove"
  43.          " Virtual Worlds then select the Remove option.  This"
  44.          " will attempt to remove all files originally"
  45.          " installed by Virtual Worlds.  However, some files,"
  46.          " such as the asl.library will not be removed as they"
  47.          " may be used by other applications.\n"
  48.       ))
  49.    ))
  50. )
  51.  
  52. (if (= update 2) (
  53.    (if (exists "VW:" (noreq))
  54.       (
  55.          (run "delete >NIL: S:VW.Config quiet force")
  56.          (run "delete >NIL: S:VWProject.info quiet force")
  57.          (run "delete >NIL: VW: all quiet force")
  58.          (run "assign >NIL: VW: remove")
  59.          (startup
  60.             "Virtual Worlds"
  61.             (prompt "\n Do you wish to remove the 'VW:' assign?\n")
  62.             (command ";(removed)")
  63.             (help (cat "\n"
  64.               " The user-startup contains an assign to VW: \n"
  65.               " This script will remove this for you.      \n"
  66.             ))
  67.          )
  68.       )
  69.    )
  70.    (exit (quiet))
  71. ))
  72. (if (= update 1)
  73.    (set target "VW:/")
  74. ;else
  75.    (set target (askdir
  76.       (prompt "\n Where do you want Virtual Worlds installed? \n")
  77.       (help (cat "\n"
  78.          " A new directory called Virtual Worlds will be made"
  79.          " in the directory that you specify.\n"
  80.       ))
  81.       (default "Work:")
  82.    ))
  83. )
  84. (set @default-dest target)
  85. (complete 10)
  86.  
  87. (set ts (getdiskspace target))
  88. (if (< ts 1000000)
  89.    (if (<> (getdevice target) "RAM")
  90.       (abort (cat "\n"
  91.          "   Not enough free disk space!!!  \n"
  92.          " Virtual Worlds requires at least \n"
  93.          "    1 Meg of hard disk space.     \n"
  94.       ))
  95.    )
  96. )
  97.  
  98. (complete 20)
  99. (copyfiles
  100.    (source "VW")
  101.    (dest (tackon target "VirtualWorlds"))
  102.    (infos)
  103.    (all)
  104. )
  105.  
  106. (complete 50)
  107. (if (= update 0) (
  108.    (run (cat "Assign VW: " (tackon target "VirtualWorlds")))
  109.    (startup
  110.       "Virtual Worlds"
  111.       (prompt "\n Add 'VW:' assign to 's:user-startup' ? \n")
  112.       (command ("ASSIGN >NIL: VW: %s " (tackon target "VirtualWorlds")))
  113.       (help (cat "\n"
  114.          " This script will add an entry to the user-startup file"
  115.          " so that the assign VW: is made to the correct directory"
  116.          " on startup.\n"
  117.       ))
  118.    )
  119. ))
  120.  
  121. (complete 60)
  122. (if (= update 0) (
  123.    (set version (askchoice
  124.       (prompt "\n What version of asl.library? \n")
  125.       (default 1)
  126.       (choices
  127.          "Workbench 1.3"
  128.          "Workbench 2.0+"
  129.       )
  130.       (help (cat "\n"
  131.          " The correct version of asl.library must be present in"
  132.          " your LIBS: drawer for Virtual Worlds to run correctly."
  133.          " This process will not overwrite a newer library (higher"
  134.          " version number).\n"
  135.       ))
  136.    ))
  137.    (if (= version 0)
  138.       (copylib (source "ASL/asl13.library") (dest "libs:") (newname "asl.library"))
  139.       (copylib (source "ASL/asl204.library") (dest "libs:") (newname "asl.library"))
  140.    )
  141. ))
  142. (complete 70)
  143. (if (= update 0) (
  144.    (set font (askchoice
  145.       (prompt "\n Do you wish to install the Times font? \n")
  146.       (default 0)
  147.       (choices
  148.          "Yup - go ahead!"
  149.          "No way!  Leave my fonts alone!"
  150.       )
  151.       (help (cat "\n"
  152.          " Virtual Worlds requires the Times font in order to function"
  153.          " correctly.  If you already have a Times font then you can"
  154.          " decide not to install this version and test Virtual Worlds. "
  155.          " If it appears that your font does not perform as required,"
  156.          " then you may decide to reinstall Virtual Worlds.  In this"
  157.          " case, you should select Install New, and then opt to install"
  158.          " the Times font provided.  Your old font will be renamed to"
  159.          " TimesOld, and the new font will be installed as Times.\n"
  160.       ))
  161.    ))
  162.    (if (= font 0)
  163.       ((if (exists "FONTS:Times.font")
  164.          ((run "rename FONTS:Times.font FONTS:TimesOld.font")
  165.          (run "rename FONTS:Times FONTS:TimesOld"))
  166.       )
  167.       (copyfiles
  168.          (source "Fonts")
  169.          (dest "FONTS:")
  170.          (nogauge)
  171.          (all)
  172.       ))
  173.    )
  174. ))
  175. (complete 90)
  176. (if (= update 0) (
  177.    (set icon (askchoice
  178.       (prompt "\n Do you wish to have icons for saved World files?\n")
  179.       (default 0)
  180.       (choices
  181.          "Ooooh!  Yes please!"
  182.          "Errr.  No thanks."
  183.       )
  184.       (help (cat "\n"
  185.          " If you want to have nice little icons for your files then"
  186.          " select as such here.  This will copy the default icon to"
  187.          " your S: directory.  If you wish to disable this feature"
  188.          " then merely remove the icon from your S: drawer.\n"
  189.       ))
  190.    ))
  191.    (if (= icon 0) (
  192.       (copyfiles
  193.          (source "s")
  194.          (dest "S:")
  195.          (nogauge)
  196.          (infos)
  197.          (all)
  198.       ))
  199.    ))
  200. )
  201. (complete 100)
  202. )
  203. ; -------------------------- Floppy disk install bit
  204. (
  205.    (message (cat "\n"
  206.       " For this install to work, you MUST boot from your normal"
  207.       " boot disk - ie a copy of your Workbench disk.  If you have"
  208.       " not done so then select Abort Install and reboot from"
  209.       " such a disk.  You will also require a formatted blank disk."
  210.       "  If you do not have a spare disk then please format one and"
  211.       " try again.  Otherwise select Proceed.\n"
  212.       " If you have a second drive, please insert the blank disk"
  213.       " into there now."
  214.    ))
  215.    (if (getdiskspace "df1:") (set copyfrom "SYS:") (set copyfrom "RAM:"))
  216. ;copy files to ram: if single disk
  217.    (if (= copyfrom "RAM:") (
  218.       (copyfiles
  219.          (source "SYS:c")
  220.          (dest "RAM:c")
  221.          (all)
  222.       )
  223.    ))
  224. ;copy files from >copyfrom< to df1:
  225.    (abort (cat "\n"
  226.       " Floppy disk installation not yet fully supported - sorry! \n"
  227.    ))
  228. )
  229. )
  230.